home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / tas412.zip / MSURANK.SEL < prev    next >
Text File  |  1992-11-20  |  366b  |  19 lines
  1. #MAX_QUOTES 100
  2. #INDEX 'SP-500'
  3. F1 : ARRAY;
  4. F1 = C;
  5. {01=CURR PRC Title for F1}
  6. F2 : ARRAY;
  7. F2 = ROC(C,26,'%');
  8. {02=%ROC/PRC Title for F2}
  9. F3 : ARRAY;
  10. F3 = MOV(C,10,'S');
  11. {03=MOV AVG  Title for F3}
  12. F4 : ARRAY;
  13. F4 = MOV(F2,10,'S');
  14. {04=MA %ROC  Title for F4}
  15. F5 : ARRAY;
  16. F5 = (F1/F3-1)*100;
  17. {05=%PRC MA  Title for F5}
  18. sortout(ticker,F1,F2,F3,F4,F5);
  19.